Sampling & Re-grouping
names <- sample(c(
"John", "Jon", "Jhon", "Jonh",
"Michael", "Micheal", "Michel",
"Emily", "Emili", "Emely", "Emiley",
"Sarah", "Sara", "Sera", "Serah",
"Matthew", "Mathew", "Mathhew",
"Jessica", "Jessika", "Jesica", "Jessicah",
"Daniel", "Daniele", "Danial",
"Elizabeth", "Elisabeth", "Elisabet",
"David", "Davi", "Davide",
"Jennifer", "Jennipher", "Jenifer",
"Christopher", "Cristopher", "Christoper",
"Amanda", "Amandah", "Amandaa",
"Andrew", "Andrw", "Andew",
"Stephanie", "Stephany", "Stephaine",
"Joshua", "Josh", "Jshua"
), replace = FALSE)
group <- function(names)
{
val2=NULL
for (i in names)
{
val=agrep(i,names)
val2=c(val2,val)
}
val2=unique(val2)
return(names[val2])
}
group(names)
## [1] "Jennipher" "Amandaa" "Amandah" "Amanda" "Cristopher"
## [6] "Christopher" "Jesica" "Jessicah" "Jessica" "Jonh"
## [11] "Joshua" "Josh" "John" "Jon" "Jessika"
## [16] "Elizabeth" "Elisabeth" "Sarah" "Serah" "Sara"
## [21] "Andrew" "Andew" "Andrw" "David" "Davide"
## [26] "Davi" "Matthew" "Mathew" "Mathhew" "Jennifer"
## [31] "Jenifer" "Michael" "Michel" "Christoper" "Emili"
## [36] "Emily" "Emiley" "Jshua" "Danial" "Daniel"
## [41] "Daniele" "Elisabet" "Stephany" "Stephanie" "Jhon"
## [46] "Micheal" "Stephaine" "Emely" "Sera"